:- module(quintus). :- export instance_body / 3. :- export erase_body / 2. :- export recordz_body / 4. :- export recorda_body / 4. :- export recorded_body / 4. :- export current_key_body / 3. :- export abolish_body / 3. :- export use_module_body / 2. :- export use_module_body / 3. :- export qdynamic_body / 2. :- export meta_predicate_body / 2. :- export op_body / 4. :- export public_body / 2. :- export prolog_flag_body / 4. :- export prolog_flag_body / 3. :- export predicate_property_body / 3. :- export nospyall_body / 1. :- export multifile_body / 2. :- export format_body / 4. :- export format_body / 3. :- export q_abolish_body / 2. :- export tr_lib / 2. :- export version / 0. :- export use_module / 2. :- export use_module / 1. :- export unknown / 2. :- export unix / 1. :- export ttytab / 1. :- export ttyskip / 1. :- export ttyput / 1. :- export ttynl / 0. :- export ttyget0 / 1. :- export ttyget / 1. :- export ttyflush / 0. :- export term_expansion / 2. :- export style_check / 1. :- export stream_position / 3. :- export stream_position / 2. :- export stream_code / 2. :- export source_file / 2. :- export source_file / 1. :- export set_output / 1. :- export set_input / 1. :- export retractall / 1. :- export recordz / 3. :- export recorded / 3. :- export recorda / 3. :- export put_line / 1. :- export put / 2. :- export public / 1. :- export prolog_flag / 3. :- export prolog_flag / 2. :- export predicate_property / 2. :- export portray_clause / 1. :- export otherwise / 0. :- export open_null_stream / 1. :- export op / 3. :- export numbervars / 3. :- export number_chars / 2. :- export nospyall / 0. :- export nogc / 0. :- export no_style_check / 1. :- export multifile / 1. :- export meta_predicate / 1. :- export manual / 0. :- export line_count / 2. :- export is_upper / 1. :- export is_lower / 1. :- export is_digit / 1. :- export integer / 2. :- export instance / 2. :- export incore / 1. :- export get0 / 2. :- export gc / 0. :- export format / 3. :- export format / 2. :- export flush_output / 1. :- export expand_term / 2. :- export erase / 1. :- export ensure_loaded / 1. :- export (dynamic) / 1. :- export display / 1. :- export current_module / 2. :- export current_key / 2. :- export current_output / 1. :- export current_input / 1. :- export character_count / 2. :- export atom_chars / 2. :- export absolute_file_name / 2. :- export (abolish) / 2. :- export (abolish) / 1. :- reexport cio. :- reexport foreign. :- reexport eclipse_language except get / 1, put / 1, put / 2, instance / 2, (abolish) / 1, (dynamic) / 1, display / 1, ensure_loaded / 1, erase / 1, op / 3, recorda / 3, recordz / 3, recorded / 3, use_module / 1, use_module_body / 2. :- export op(0, xfx, of). :- export op(0, xfx, with). :- export op(0, xfy, do). :- export op(0, xfx, @). :- export op(0, fx, -?->). :- export op(0, fy, not). :- export op(0, fy, spied). :- export op(0, fx, delay). :- export macro((with) / 2, quintus : (=) / 2, []). :- export macro((of) / 2, quintus : (=) / 2, []). :- export syntax_option(nl_in_quotes). :- export syntax_option(no_array_subscripts). :- export syntax_option(limit_arg_precedence). :- export syntax_option(doubled_quote_is_quote). :- export syntax_option('$VAR'). :- export syntax_option(bar_is_no_atom). :- export syntax_option(no_attributes). :- export syntax_option(no_curly_arguments). :- export syntax_option(blanks_after_sign). :- export chtab(92, symbol). :- export chtab(128, string_quote). :- export chtab(34, list_quote). :- export op(500, fx, \). :- export op(900, fy, spy). :- export op(900, fy, nospy). :- export op(1150, fx, [meta_predicate, multifile, public, mode, dynamic]). :- export op(300, xfx, div). :- reexport '.' / 3, assertz / 1, consult / 1, current_functor / 2, current_predicate / 2, db_reference / 1, erased / 1, fileerrors / 0, get / 1, get0 / 1, heapused / 1, leash / 1, log10 / 2, log / 2, nofileerrors / 0, primitive / 1, prompt / 2, put / 1, reconsult / 1, sh / 0 from cprolog. :- export macro(library_directory / 1, quintus : tr_lib / 2, [clause]). :- comment(summary, 'Quintus prolog compatibility package'). :- comment(author, 'Micha Meier, ECRC Munich'). :- comment(copyright, 'Imperial College London and ICL'). :- comment(date, '$Date: 2004/11/19 14:27:29 $'). :- comment(desc, html('\n ECLiPSe includes a Quintus Prolog compatibility package to ease the\n task of porting Quintus Prolog applications to ECLiPSe Prolog. This\n package does not provide the user with a system completely compatible\n to Quintus Prolog, however it provides most of the Quintus built-in\n predicates, moreover some of the Quintus library predicates are\n available in the ECLiPSe library. This package includes the C-Prolog\n compatibility package (see Appendix A.6). \n

\n Please note that this appendix does not detail the functionality of\n Quintus Prolog, refer to the Quintus Prolog documentation for this\n information. \n

\n The effect of the compatibility library is local to the module where\n it is loaded. For maximum compatibility, a Quintus program should\n be wrapped in a separate module starting with a directive like\n 

\n    :- module(mymodule, [], quintus).\n
\n In this case, Eclipse-specific language constructs will not be available.\n

\n If the compatibility package is loaded into a standard module, e.g. like\n 

\n    :- module(mymixedmdule).\n    :- use_module(library(quintus)).\n
\n then Quintus and Eclipse language features can be used together. \n However, ambiguities must be resolved explicitly and confusion may\n arise from the different meaning of quotes in Eclipse vs Quintus-Prolog.\n

\n The following differences remain even with the compatibility package: \n

\n
expand_term/2 \n\t
This predicate is dummy, since the ECLiPSe macro facility\n\tworks on every input term, provided that the flag\n\tmacro_expansion is set to on. \n
get0/2 \n\t
This predicate is identical to get/2 in ECLiPSe. \n
help/1 \n\t
This is the normal ECLiPSe help/1 predicate. \n
meta_predicate/1 \n\t
This predicate is not available, as the Quintus method of\n\tpassing the module information to meta predicates differs\n\tsubstantially from the ECLiPSe more general concept of tools\n\t(see Section 9.6.4). Only the operator definition for this\n\tfunctor is available. \n
multifile/1 \n\t
This is implemented by declaring the predicates as dynamic, so\n\tto obtain more efficient programs it is better to put all\n\tclauses of the same procedure into one file (or to concatenate\n\tall files where multifile predicates occur). \n
predicate_property/2 \n\t
The property interpreted is not provided. The property\n\texported is returned if the predicate is exported or global. \n\tUse of get_flag/3 should be preferred. \n
prolog_flag/2, 3 \n\t
There are some differences in the flags, as they are mostly\n\tsimulated with the ECLiPSe flags:\n\t\n
public/1\n\t
synonym for export/1 \n
statistics/0, 2 \n\t
these predicates are slightly different than in Quintus,\n\tsee the description of the ECLiPSe statistics/2 predicate. \n\tThe predicate statistics/2 also accepts all Quintus values in\n\tthe Quintus mode, but for stack_shifts is always returns\n\tzeros. statistics/0 returns only Quintus values when in\n\tQuintus mode. \n
ttyflush/0, ttyget/1, ttyget0/1, ttynl/0, ttyput/1, ttyskip/1, ttytab/1 \n\t
these predicates work with the stdout stream \n
line_position/2\n\t
Not implemented. To perform sophisticated output formatting,\n\tprintf/2,3 or string streams can be used.\n
\n The list below describes the syntax differences between\n ECLiPSe and Quintus Prolog. The following properties of Quintus\n Prolog are simulated by the compatibility package: \n \n The following Quintus properties are not simulated: \n \n ')). :- comment(instance_body / 3, hidden). :- comment(erase_body / 2, hidden). :- comment(recordz_body / 4, hidden). :- comment(recorda_body / 4, hidden). :- comment(recorded_body / 4, hidden). :- comment(current_key_body / 3, hidden). :- comment(abolish_body / 3, hidden). :- comment(use_module_body / 2, hidden). :- comment(use_module_body / 3, hidden). :- comment(qdynamic_body / 2, hidden). :- comment(meta_predicate_body / 2, hidden). :- comment(op_body / 4, hidden). :- comment(public_body / 2, hidden). :- comment(prolog_flag_body / 4, hidden). :- comment(prolog_flag_body / 3, hidden). :- comment(predicate_property_body / 3, hidden). :- comment(nospyall_body / 1, hidden). :- comment(multifile_body / 2, hidden). :- comment(format_body / 4, hidden). :- comment(format_body / 3, hidden). :- comment(q_abolish_body / 2, hidden).